Top 10k strings from Roulette (1985)(Megasoft)(ba).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
4 K(A)=K(A)+L(A,B)/2
3 K(A)=K(A)+L(A,B):
3 K(A)=K(A)+2
3 ;"Pritisni taster...":
2 w(a)=w(a)-1
2 ``f`f`f`f`
2 Q$(A,B,I)>"9"
2 Q$(A,B,I)<"0"
2 K(A)=K(A)+17
2 ;"Pritisni tipku...":
2 ;"#################":
2
1 w(a)=w(n+1
1 sum=sum-k(a):
1 sum=sum+k(a):
1 q$(a,v)=q$(n+1
1 q$(a,rb)=q$(a,w(a)):
1 l(a,v)=l(n+1
1 l(a,v)+" na "+(q$(a,v)
1 l(a,v))+("-----"
1 l(a,rb)=l(a,w(a)):
1 k(a)=k(n+1
1 k$(a)=k$(n+1
1 jjjjjjjjjjjjjjjjrrrrrrrrrrrrrrrrjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjhhhhhhhhhhhhhhjppppppppppppppprjjjjjjjjjjjjjjjjrrrrrrrrrrrrrrrr200000000000000000
1 f$(V)=k$(V-2
1 ban=ban+sum:
1 a(a)=a(n+1
1 a(a))'" ";
1 Y$=Q$(A,B,4
1 Y$=Q$(A,B,3
1 W(A)=W(A)+1
1 V$=Q$(A,B,4
1 V$=Q$(A,B,3
1 Upisivanje snimljene igre (d/n)?"
1 Q$(A,W(A)+1
1 Q$(A,B)>57
1 Q$(A,B)=R$:
1 Q$(A,B)=I$
1 Q$(A,B)="UN "
1 Q$(A,B)="RO "
1 Q$(A,B)="PS "
1 Q$(A,B)="PA "
1 Q$(A,B)="P,M "
1 Q$(A,B)="P "
1 Q$(A,B)="NO "
1 Q$(A,B)="MQ "
1 Q$(A,B)="M,D "
1 Q$(A,B)="M "
1 Q$(A,B)="D "
1 Q$(A,B)="<3 "
1 Q$(A,B)="<2,<3"
1 Q$(A,B)="<2 "
1 Q$(A,B)="<1,<2"
1 Q$(A,B)="<1 "
1 Q$(A,B)<48
1 PP OO QWE ASD DFSDS ERTR FGHG BNBVB GF DFG SDF CXCX
1 O$="23659"
1 O$="100000"
1 Napomena kockarima!!!
1 L(A,W(A)+1
1 L(A,W(A))=0
1 K(W)=K(W)+L(W,V):
1 K(A)=K(N):
1 K(A)=K(A)-ZB:
1 K(A)=K(A)-L(A,B)
1 K(A)=K(A)+8
1 K(A)=K(A)+5
1 K(A)=K(A)+35
1 K(A)=K(A)+11
1 K$(A)=K$(N):
1 JJ;J$;"_";
1 IGRAC: ";K$(A);"
1 I N S T R U K C I J E
1 DB=K(A)-A(A):
1 B$(K$(O));" : ":
1 B$(" izgubili: "
1 B$(" dobili: "
1 B$(" Sada imate:"),
1 B$(" Na pocetku igre imali ste: ");
1 B$(" Do sada ste ");
1 ;"tri broja ispod"',"5*ULOG
1 ;"nalazi ispod broja n"',"17*ULOG"''
1 ;"je desno"',"17*ULOG"''"n,b -broj n i broj koji se";
1 ;"i dva broja desno"',"11*ULOG
1 ;"i ""m""),broj desno,"';
1 ;"dva broja desno i"';
1 ;"dolje desno"',
1 ;"broj dolje i broj"';
1 ;"Vase novcano stanje:"''"$";:
1 ;"Ulog : ";:
1 ;"UPUTSTVO (d/n) ?":
1 ;"Redni broj kombinacije koja se ponistava (1-18) ?"'':
1 ;"ROULETTE";
1 ;"Pritisni ENTER za ponavljanje uputstva."
1 ;"Pritisni ENTER za izvlacenje."
1 ;"Novo novcano stanje :"'':
1 ;"Novo ime:"'':
1 ;"Kombinacija : ";:
1 ;"Koliko novaca ima banka (ENTER za $100000) ? $";:
1 ;"Ime novog igraca:"'':
1 ;"IGRAC ";A;" : ";:
1 ;"Da li neko zeli da se prikljuci?";
1 ;"Bilo koja druga tipka nastavak."
1 ;"Banka bankrotirala...":
1 ;"BANKA : $";BAN:
1 ;"1*ULOG"''"UN(unpair)-svi neparni brojevi"',"1*ULOG"''"PS(passe) -svi brojevi > 18"',"1*ULOG"''"MQ(manque)-svi brojevi
1 ;"(C-COPY)"
1 ;" imas $";
1 ;" BANKROTIRAO!!!"
1 ;" Startuj kasetofon...":
1 ;" Koliko ima igraca ? ";
1 ;" ";
1 ;" MNOGO SRECE !!!":
1 ;" ";
1 ;" ":
1 :Koliko novca imate ?":
1 000222222222222222222222222222222222FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
1 00022222222202222222200000000000000222222222020202020000000000000002222222222222020220000
1 )+" na "+(q$(a,v+1
1 ))+("-----"
1 ''"m -brojevi u koloni ""m"""',"2*ULOG"''"d -brojevi u koloni ""d"""',"2*ULOG"''"p,m -kolone ""p"" i ""m"""',"1/2 *ULOG"''"m,d -kolone ""m"" i ""d"""',"1/2 *ULOG"
1 ''"PA(pair) -svi parni brojevi"'
1 ''"<3 -brojevi 25-36"',"2*ULOG"''
1 ''"<1 -brojevi 0 - 12"',"2*ULOG"''"<2 -brojevi 13 - 24"',"2*ULOG";#0
1 '"Vase kombinacije u ovom krugu :"'
1 "n,c -broj n (kolona ""p"")"';
1 "n,a -broj n(u koloni ""p"" ili ""m"") i broj koji";
1 "Ubacite imena igraca"''"(max 10 karaktera)"'''
1 "ROULETTE
1 "P ","M ","D ","<1 ","<2 ","<3 ","PA ","UN ","PS ","MQ ","RO ","NO ","P,M ","M,D ","<1,<2","<2,<3"
1 "Igrac ";a;" : ";
1 "<1,<2 -brojevi 1-24"',"1/2 *ULOG"''"<2,<3 -brojevi 13-36"',"1/2 *ULOG"''
1 ","<1<2<3"
1 "'''" Rulet je igra koja se igrala od davnina.Porijeklo vodi iz Francuske."'"Danas se igra u mnogim kockar-"'"nicama sirom svijeta.To je"'"razlog koji nas je motivisao da sacinimo program po svim pravi-"'"lima francuskog ruleta."''" Kada budete birali kombinacijukoristite sintaksu koja je nave-"'"dena u uputstvu.Dobitak za poje-"'"dine kombinacije je takodje"'"naveden u obliku n*ULOG."
1 "''"n,e -broj n (kolona ""p""),"';
1 "''" Vjerovatnoca dobitka premagubitku iznosi 35:37.U prosjeku banka na duzi period dobija 5.5%svih uloga!!!"'',"Autori"',"------";#0
1 " p m d","
1 Ulaganje","
1 Pregled"'"
1 Ponistenje neke kombinacije"'"
1 POVRATAK"
1 Odustajanje"'"
1 NETACAN PODATAK !!!":
1 MEGASOFT 1985"
1 Kurzor gore","
1 Kurzor dolje"'"
1 Izvlacenje","
1 Izmjene
1 Izmjena novcanog stanja"'"
1 Izmjena imena"'"
1 18"',"1*ULOG"''"RO(rouge) -svi crveni brojevi"',"1*ULOG"''"NO(noir) -svi crni brojevi"',"1*ULOG"''"p -brojevi u koloni ""p"""',"2*ULOG";#0
1 ''"n,d -broj n (kolone ""p"""';
1 I S P L A T A
1